From: Richard M. Stallman Date: Mon, 2 Feb 1998 01:12:18 +0000 (+0000) Subject: (update-file-autoloads): Give clean errors X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~78259 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0b33ec466a843e68cbee19dd56a568bcdaf8637c;p=emacs.git (update-file-autoloads): Give clean errors if autoloads file is empty or can't be written. --- diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 9ae7188120a..1a85cd7c688 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -314,6 +314,10 @@ are used." (expand-file-name generated-autoload-file (expand-file-name "lisp" source-directory))))) + (or (> (buffer-size) 0) + (error "Autoloads file %s does not exist" buffer-file-name)) + (or (file-writable-p buffer-file-name) + (error "Autoloads file %s is not writable" buffer-file-name)) (save-excursion (save-restriction (widen)